home *** CD-ROM | disk | FTP | other *** search
/ Apple Reference & Present…ry 5: (Reseller Edition) / Apple Reference & Presentations Library 5.0 (Reseller Edition).iso / 3-Presentations / Apple Demos / Training / Macintosh IIci Training / Macintosh IIci Tutorial / Macintosh IIci Tutorial / card_43029.txt < prev    next >
Text File  |  1990-03-19  |  4KB  |  153 lines
  1. -- card: 43029 from stack: in
  2. -- bmap block id: 0
  3. -- flags: 0000
  4. -- background id: 2629
  5. -- name: tech13
  6. ----- HyperTalk script -----
  7. on opencard
  8.   global pauseState,quitstate
  9.   put "Running" into quitstate
  10.   put "Wait" into PauseState
  11.   put "Card "&the number of me into field "Card number"
  12.  
  13.   hide card field "click anywhere to resume"
  14.   set cursor to watch
  15.   playVW "Nubus card sequence",vwpreload
  16. end opencard
  17.  
  18. On mouseup
  19.   global pauseState,quitstate
  20.   if quitstate = "running" then exit mouseup
  21.   if pausestate="pause" then
  22.     put "Wait" into pausestate
  23.     show card field "click anywhere to resume"
  24.     exit mouseup
  25.   else -- Resume the movie
  26.     hide card field "click anywhere to resume"
  27.     play "enter animation"
  28.     playvw vwclick, vwnoupdate --Play the preloaded movie
  29.     play "exit animation"
  30.     getframevw
  31.     get the result
  32.     put it into framenumber
  33.     if framenumber = 0
  34.     then -- Movie is over
  35.     push card
  36.     pop card
  37.     playVW "Nubus card sequence",vwpreload
  38.   end if
  39.   put "Pause" into pausestate
  40. end if
  41. end mouseup
  42.  
  43.  
  44.  
  45. -- part 2 (field)
  46. -- low flags: 81
  47. -- high flags: 0001
  48. -- rect: left=285 top=53 right=73 bottom=430
  49. -- title width / last selected line: 0
  50. -- icon id / first selected line: 0 / 0
  51. -- text alignment: 0
  52. -- font id: 157
  53. -- text size: 14
  54. -- style flags: 0
  55. -- line height: 18
  56. -- part name: Click anywhere to resume
  57.  
  58.  
  59. -- part 4 (field)
  60. -- low flags: 81
  61. -- high flags: 0000
  62. -- rect: left=3 top=1 right=17 bottom=119
  63. -- title width / last selected line: 0
  64. -- icon id / first selected line: 0 / 0
  65. -- text alignment: 0
  66. -- font id: 3
  67. -- text size: 9
  68. -- style flags: 0
  69. -- line height: 12
  70. -- part name: Sequence
  71.  
  72.  
  73. -- part 5 (button)
  74. -- low flags: 00
  75. -- high flags: A004
  76. -- rect: left=456 top=22 right=74 bottom=510
  77. -- title width / last selected line: 0
  78. -- icon id / first selected line: 20100 / 20100
  79. -- text alignment: 1
  80. -- font id: 0
  81. -- text size: 12
  82. -- style flags: 0
  83. -- line height: 16
  84. -- part name: Movie
  85. ----- HyperTalk script -----
  86. on mouseUp
  87.   global pauseState,quitstate
  88.   if quitstate = "Quit" then
  89.     hide card field "click anywhere to resume"
  90.     visual effect dissolve
  91.     if pausestate="wait" then  play "exit animation"
  92.     push card
  93.     pop card
  94.     playvw "NuBus card sequence", vwpreload
  95.     put "wait" into pausestate
  96.     put "running" into quitstate
  97.     exit mouseup
  98.   end if
  99.  
  100.   play "enter animation"
  101.   playvw vwclick, vwnoupdate --Play the preloaded movie
  102.   play "exit animation"
  103.   put "quit" into quitstate
  104.   --
  105.   -- Execute this code when the movie is over or paused
  106.   getframevw
  107.   get the result
  108.   put it into framenumber
  109.   if framenumber = 0
  110.   then -- Movie is over
  111.   push card
  112.   pop card
  113.   playvw "Nubus card sequence", vwpreload
  114.   put "running" into quitstate
  115. else -- User paused the movie
  116.   put "Pause" into pausestate
  117.   show card field "click anywhere to resume"
  118. end if
  119. end mouseUp
  120.  
  121.  
  122.  
  123. -- part contents for background part 20
  124. ----- text -----
  125. If a NuBus video card is used to generate the video image in the Macintosh IIci, the performance improvement over the Macintosh IIcx is about 36 percent greater, independent of the screen depth. This improvement is due entirely to the faster processor speed of the Macintosh IIci.
  126.  
  127. -- part contents for background part 21
  128. ----- text -----
  129. NuBus video
  130.  
  131. -- part contents for background part 12
  132. ----- text -----
  133. Apple Macintosh IIci
  134.  
  135. -- part contents for background part 14
  136. ----- text -----
  137. tech13
  138.  
  139. -- part contents for background part 4
  140. ----- text -----
  141. Technology ‚Äî NuBus video
  142.  
  143. -- part contents for background part 18
  144. ----- text -----
  145. Card 121
  146.  
  147. -- part contents for card part 2
  148. ----- text -----
  149. Click to resume
  150.  
  151. -- part contents for card part 4
  152. ----- text -----
  153. "Nubus card Sequence"